HeatmApp Test Notebook

library(tidyverse)
library(shinydashboardPlus)
library(shinydashboard)
library(plotly)

sourceDirectory <- function(pathToFolder=paste(getwd(),"/R/",sep = "")){
  for (x in list.files(pathToFolder)){
    source(file.path(pathToFolder, x))}}

if(xfun::dir_exists("R")==TRUE){
  sourceDirectory()
  print(".R directory found and sourced")
}else{
  print("No .R directory found")}

[1] ".R directory found and sourced"

Lens1 <- advancedLensPrep(Data = LensSQL_file1 , ComponentSplit = "Group")
Lens2 <- advancedLensPrep(Data = LensSQL_file2 , ComponentSplit = "Group")

Cyber1 <- advancedCyberPrep(Data = CyberAdv_file1 , ComponentSplit = "Package")

data_frame("A" = c(0,0,0,0,1,0,6) ,"B" = c(0,0,0,1,0,5,0), "C" = c(0,0,1,0,4,0,15),
                                      "D" = c(0,1,0,3,0,10,0),"E" = c(1,0,2,0,6,0,20),"F" = c(0,1,0,3,0,10,0),
                                      "G" = c(0,0,1,0,4,0,15),"H" = c(0,0,0,1,0,5,0), "I" = c(0,0,0,0,1,0,6))

Lens1GroupSubset <- Lens1 %>% filter(Package %in% list(4,5,6))
Lens1GrpSubCompSumm <- Lens1GroupSubset%>%group_by(BoardNo,Location)%>%
    dplyr::summarise("PosX(mm)"=mean(`PosX(mm)`),"PosY(mm)"=mean(`PosY(mm)`),"Package"=mean(Package),count =n())

`summarise()` has grouped output by 'BoardNo'. You can override using the `.groups` argument.

Graph <- ggplot(data = Lens1GrpSubCompSumm, mapping = aes(x = `PosX(mm)`,y = `PosY(mm)`, label = `Location`)) + 
  #geom_point() + 
  geom_text(aes(color=factor(`Package`)),size=4,check_overlap = TRUE)
#Graph
ggplotly(Graph)

testList <- as.list(sort(unique(Lens1$Package)))